#!/usr/bin/perl -w
# $Id$
# Author: Charles Mauch (charles@mauch.name)
# Description: Just outputs the current time in stardate (startrek)
# Legal: (c) 2006 Charles Mauch, released under the terms of the GPLv2 (or later)

if ( $ARGV[0] ) {
    print 
	    "Convert current day and time to stardate\n\n",
	    "Based on an algorithm found on The StarTrek Gallery\n",
	    "http://www.trainerscity.com/startrek/\n\n";
}

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $month=$mon+1;
print( "$year$month.$mday\n" );
